﻿Public NotInheritable Class BrewTrollerStart

    'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab
    '  of the Project Designer ("Properties" under the "Project" menu).


    Private Sub BrewTrollerStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Set up the dialog text at runtime according to the application's assembly information.  

        'TODO: Customize the application's assembly information in the "Application" pane of the project 
        '  properties dialog (under the "Project" menu).

        'Application title
        'If My.Application.Info.Title <> "" Then
        '    ApplicationTitle.Text = My.Application.Info.Title
        'Else
        '    'If the application title is missing, use the application name, without the extension
        '    ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        'End If

        ApplicationTitle.Text = "Remote"
        'Format the version information using the text set into the Version control at design time as the
        '  formatting string.  This allows for effective localization if desired.
        '  Build and revision information could be included by using the following code and changing the 
        '  Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar.  See
        '  String.Format() in Help for more information.
        '
        'Version.Text = "Version 0.4 alpha 101" + vbCrLf + "January 20, 2010"

        Dim strMajVer As String = My.Application.Info.Version.Major
        Dim strMinVer As String = My.Application.Info.Version.MajorRevision
        Dim strBuildVer As String = My.Application.Info.Version.Build
        Dim strRevNum As String = My.Application.Info.Version.MinorRevision

        Version.Text = "Version " & strMajVer & "." & strMinVer & " Beta release build " & strBuildVer & strRevNum + vbCrLf + "August, 2010"
        'Version.Text = "Version " & My.Application.Info.Version.Build & My.Application.Info.Version.MinorRevision
        System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.MinorRevision)


        'Copyright info
        Copyright.Text = "www.brewtroller.com" & vbCrLf & "GPL open source by Arnie Wierenga" & vbCrLf
        Copyright.Text &= "Contributors: "
        Copyright.Text &= "Keith Mycek (Mylo); Weizen (Shane)"
    End Sub

  
End Class
